﻿Public Class Estado_BusquedaFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Estado de Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.EstadoBusquedaFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Estado de Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Estado_BusquedaFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Estado de Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.EstadoBusquedaFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Estado de Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Estado_BusquedaFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Estado de Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.EstadoBusquedaFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Estado de Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Estado_BusquedaFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Estado de Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.EstadoBusquedaFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Estado de Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Estado_BusquedaFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Estado de Búsqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.EstadoBusquedaFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Estado de Búsqueda"
        Me.innerException2 = innerException
    End Sub
End Class
